Дано натуральное число n. определить, является ли оно автоморфным ( число n равно последним разрядам квадрата этого числа- Pascal(Паскаль)

uses crt;
function Avto(n:longint):boolean;
var p,m:longint;
    f:boolean;
begin
p:=n;
m:=n*n;
f:=true;
while (p>0)and f do
 begin
  if (p mod 10)<>(m mod 10) then f:=false
  else
   begin
    p:=p div 10;
    m:=m div 10;
   end;
 end;
Avto:=f;
end;
var a,b,i,k,n:longint;
begin
clrscr;
repeat
 writeln('Введите натуральное число n=');
 readln(n);
until n>0;
if Avto(n) then write('автоморфное')
 else write('не автоморфное');

readln
end.